


Extern "Windows-MS"
	
	Function Spy_Create(hParent As HANDLE, x As Integer, y As Integer, Event_Over As HANDLE, Event_Move As HANDLE) As HANDLE Export
		Dim ClassPtr As SpyCon_Data Ptr = calloc(1, SizeOf(SpyCon_Data))
		If ClassPtr Then
			ClassPtr->Event_Over = Event_Over
			ClassPtr->Event_Move = Event_Move
			Dim RetHdr As HANDLE = CreateDialogParam(hInst, Cast(ZString Ptr, 1190), hParent, @SpyToolProc, Cast(Integer, ClassPtr))
			SetWindowPos(RetHdr, 0, x, y, 31, 28, SWP_NOZORDER Or SWP_NOACTIVATE)
			Return RetHdr
		EndIf
	End Function
	
	Sub Spy_Destroy(hSpy As HANDLE) Export
		SendMessage(hSpy, WM_CLOSE, 0, 0)
	End Sub
	
	Function xyMacro_Compile() As Integer
		
	End Function
	
	Function xyMacro_GetScript() As ZString Ptr
		
	End Function
	
End Extern
